home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / g / gnu_c / incl98.zoo / varargs.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-10  |  2.3 KB  |  94 lines
  1. #ifndef _VARARGS_H
  2. #define _VARARGS_H
  3.  
  4. #ifdef __TURBOC__
  5. #error varargs not implemented under Turbo C / Pure C
  6. #endif
  7.  
  8. /* in case stdarg.h got included by a header file */
  9. #ifdef va_start
  10. #undef va_start
  11. #undef va_end
  12. #undef va_dcl
  13. #undef va_alist
  14. #undef va_list
  15. #endif
  16.  
  17. #ifndef _COMPILER_H
  18. #include <compiler.h>
  19. #endif
  20.  
  21. #ifdef __cplusplus
  22. extern "C" {
  23. #endif
  24.  
  25. #ifndef __GNUC__
  26. /* I'm not sure this is right.  These apparently are all supposed to be
  27.    defines; doesn't seem to make much sense to make them functions.
  28.    There may be some missing from this list; these are the ones I found
  29.    by grepping around in code...
  30. */
  31.  
  32. /* a va_list is a list of random frobules */
  33. typedef __VA_LIST__ va_list;
  34.  
  35. /* the address of the list??? don't we already have that???  C programmers
  36.    pick the wierdest times to start worrying about abstractions! */
  37. #define va_start(args) args = (va_list) &va_alist
  38.  
  39. /* is this supposed to do anything??? */
  40. #define va_end(args)
  41.  
  42. /* This is apparently a general purpose accessor, used for storing, as 
  43.    well as snarfing.  This is the only way I could think of to make it
  44.    work that way.  Please, somebody, re-write this! */
  45. #define va_arg(args, elt_type) ((elt_type * ) ((args) += sizeof(elt_type)))[-1]
  46.  
  47. #define va_dcl    int va_alist;
  48.  
  49. #else
  50.  
  51. /* These macros implement traditional (non-ANSI) varargs
  52.    for GNU C.  */
  53. #if __GNUC__ > 1
  54. #define __va_ellipsis ...
  55. #else
  56. #define __va_ellipsis
  57. #endif
  58.  
  59. #define va_alist  __builtin_va_alist
  60. /* The ... causes current_function_varargs to be set in cc1.  */
  61. #define va_dcl    int __builtin_va_alist; __va_ellipsis
  62.  
  63. /* Define __gnuc_va_list, just as in stdarg.h.  */
  64.  
  65. #ifndef __GNUC_VA_LIST
  66. #define __GNUC_VA_LIST
  67. typedef void *__gnuc_va_list;
  68. #endif
  69.  
  70. #define va_start(AP)  AP=(char *) &__builtin_va_alist
  71. #define va_end(AP)
  72.  
  73. #define __va_rounded_size(TYPE)  \
  74.   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
  75.  
  76. #define va_arg(AP, TYPE)                                                \
  77.  (AP = (__gnuc_va_list) ((char *) (AP) + __va_rounded_size (TYPE)),    \
  78.   *((TYPE *) (void *) ((char *) (AP) - ((sizeof (TYPE) < sizeof (int)    \
  79.                      ? sizeof (TYPE)        \
  80.                      : __va_rounded_size (TYPE))))))
  81.  
  82. #ifndef _VA_LIST_
  83. #define _VA_LIST_
  84. typedef __gnuc_va_list va_list;
  85. #endif /* _VA_LIST_ */
  86.  
  87. #endif /* __GNUC__ */
  88.  
  89. #ifdef __cplusplus
  90. }
  91. #endif
  92.  
  93. #endif /* _VARARGS_H */
  94.